home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
love4th.zip
/
DEMO-VR.DEM
< prev
next >
Wrap
Text File
|
1991-10-01
|
834b
|
34 lines
|O|Dalso ourdemo : junk ; last demo-hs !|E
|Ahelp edit
|F open-new" 3demo.scr"
|O|" First the help v-vocab was called in, then the utilties were called to"
|" make a new screen file"
|" Next.. the editor will be called in.."
|F|K1 EDIT
: music ; ( nothing to do yet! )
make_dynamic music ( prepare for new meanings... )
: high-pitch ( -- ) 4000 50 tone ;
: encounters ( -- )
784 70 tone
880 70 tone
698 70 tone
349 70 tone
523 200 tone ;
get help by: ctl-x kill line: ctl-K
save screen: Esc-F Here goes .....
F|O|" Now the screen will be loaded - which will call in the"
|" Utilities"
|K|F1 LOAD
( test the new word)
music
( silent )
revector music high-pitch
music
( now it's different. )
revector music encounters
music
|F
"close
dos del 3demo.scr
|Bourdemo to-menu